function record_in=deinterleaver(RE)
NB=1;NC=48;s=max(NB/2,1);
for k=0:NC-1
zz(k+1)=s*floor(k/s)+mod(k+floor(16*k/NC),s);
t_zz(k+1)=16*zz(k+1)-(NC-1)*floor(16*zz(k+1)/NC);
end
for n=1:48
record_in(t_zz(n)+1)=RE(n);
end